0 GOTO 9
1 ***********************
2 *  SUPER MEMORY       *
3 *  VON BERND ARNOLD   *
4 *  SCHULENBURG STR.6  *
5 *  8500 NUERNBERG 50  *
6 *  TEL 804567         *
7 ***********************
9 CLR:REM ALLE VARIABLEN LOESCHEN
10 POKE53281,8:POKE53280,7
11 PRINT"[147][149]"
12 GOSUB 4500:REM SPRINGT ZUR EINLEITUNG
13 PRINT"[147][149]":CLR
14 INPUT"BITTE DIE ENDZAHL EINGEBEN ";A:AA=A:A=A+48
15 IF A<58 THEN GOTO 17:REM ZAHL AUF KORREKTHEIT UEBERPRUEFEN
16 PRINT"DIE ZAHL DARF NICHT GROESSER ALS 9 SEIN":GOTO 10
17 PRINT"BITTE DIE ANZAHL DER SCHRITTE EINGEBEN ":INPUTB
20 A(1)=A:A(2)=A:A(3)=A:A(4)=A:A(5)=A:A(6)=A:A(7)=A:A(8)=A:A(9)=A:S=-1:B=B+1
40 GOTO 2000:REM ZUFALLSZAHLEN ERZEUGEN
90 REM BILDSCHIRMGRAFIK AUFBAUEN
100 PRINT"[147]";
110 PRINTCHR$(176)+CHR$(99)+CHR$(178)+CHR$(99)+CHR$(178)+CHR$(99)+CHR$(174);
120 PRINT"[157][157][157][157][157][157][157]";:PRINTCHR$(98)+CHR$(A(1))+CHR$(98)+CHR$(A(2))+CHR$(98);
130 PRINTCHR$(A(3))+CHR$(125);:PRINT"[157][157][157][157][157][157][157]";:PRINTCHR$(171)+CHR$(99);
140 PRINTCHR$(123)+CHR$(99)+CHR$(123)+CHR$(99)+CHR$(179);:PRINT"[157][157][157][157][157][157][157]";
150 PRINTCHR$(98)+CHR$(A(4))+CHR$(98)+CHR$(A(5))+CHR$(98)+CHR$(A(6))+CHR$(98);
160 PRINT"[157][157][157][157][157][157][157]";:PRINTCHR$(171)+CHR$(99)+CHR$(123)+CHR$(99)+CHR$(123);
170 PRINTCHR$(99)+CHR$(179);:PRINT"[157][157][157][157][157][157][157]";:PRINTCHR$(98)+CHR$(A(7));
180 PRINTCHR$(98)+CHR$(A(8))+CHR$(98)+CHR$(A(9))+CHR$(98);:PRINT"[157][157][157][157][157][157][157]";
190 PRINTCHR$(173)+CHR$(99)+CHR$(177)+CHR$(99)+CHR$(177)+CHR$(99)+CHR$(189)
200 PRINT"F=[145] [157] [157] [145]  [146]H=  [145] [157] [157] [146][145]G=   [145][157][157] [157] [146][145]";
205 PRINT"T=[145]   [157][157] [157] [146][145]";
210 PRINT"V=   [145][157][157] [145][157] ":PRINT"[145][145][145][145][145][145][145][145][145][145]R=[145]   [157][157][157] [157] [146]"
220 PRINT"C=   [157][157][157][145] [145][157] [146][145][145][145]Y=[145]   [157] [157] [146][157][157]";
230 PRINT"[157][157][157]B=[145] [157] [157][157][157]   "
240 RETURN
250 REM *******************************
1000 PRINT"":S=S+1:REM S=SCHRITTE
1010 PRINT"[149] BITTE DAS FELD EINGEBEN, DAS SIE VER-   AENDERN WOLLEN"
1015 PRINT"SCHRITTE:"S
1016 PRINTTAB(18)"[145]ENDZAHL LAUTET "AA
1017 PRINT"F1=NEUES SPIEL":PRINT" F7=ALLE SCHRITTE ZURUECK"
1020 GETA$:REM TASTATURABFRAGE
1025 IFA$="[136]"THEN4100:REM "[136]" = F7
1030 IFA$="R"THEN1140
1050 IFA$="T"THEN1150
1060 IFA$="Y"THEN1160
1070 IFA$="F"THEN1170
1080 IFA$="G"THEN1180
1090 IFA$="H"THEN1190
1100 IFA$="C"THEN1200
1110 IFA$="V"THEN1210
1120 IFA$="B"THEN1220
1121 IFA$="[133]"THEN13:REM "[133]" = F1
1122 FORT=1TO9:IFA(T)=A THEN X=X+1:REM  UEBERPRUEFEN OB ALLE ZAHLEN GLEICH SIND
1123 NEXTT
1124 IF X=9 THEN 3000:REM WENN JA DANN  GRADULATION
1125 X=0
1130 GOTO 1020
1135 REM  R-ZAHLEN UM 1 ERHOEHEN
1140 A(1)=A(1)+1:A(2)=A(2)+1:A(3)=A(3)+1:A(4)=A(4)+1:A(7)=A(7)+1
1141 FORT=1TO9:IFA(T)=58THENA(T)=48:REM WENN ZAHL GROESSER ALS 9 DANN AUF 0
1142 NEXTT:GOSUB 100:GOTO 1000
1143 REM  T-ZAHLEN UM 1 ERHOEHEN
1150 A(1)=A(1)+1:A(2)=A(2)+1:A(3)=A(3)+1:A(5)=A(5)+1:A(8)=A(8)+1
1151 FORT=1TO9:IFA(T)=58THENA(T)=48
1152 NEXTT:GOSUB 100:GOTO 1000
1153 REM  Y-ZAHLEN UM 1 ERHOEHEN
1160 A(1)=A(1)+1:A(2)=A(2)+1:A(3)=A(3)+1:A(6)=A(6)+1:A(9)=A(9)+1
1161 FORT=1TO9:IFA(T)=58THENA(T)=48
1162 NEXTT:GOSUB 100:GOTO 1000
1163 REM  F-ZAHLEN UM 1 ERHOEHEN
1170 A(1)=A(1)+1:A(4)=A(4)+1:A(5)=A(5)+1:A(6)=A(6)+1:A(7)=A(7)+1
1171 FORT=1TO9:IFA(T)=58THENA(T)=48
1172 NEXTT:GOSUB 100:GOTO 1000
1173 REM  G-ZAHLEN UM 1 ERHOEHEN
1180 A(2)=A(2)+1:A(4)=A(4)+1:A(5)=A(5)+1:A(6)=A(6)+1:A(8)=A(8)+1
1181 FORT=1TO9:IFA(T)=58THENA(T)=48
1182 NEXTT:GOSUB 100:GOTO 1000
1183 REM  H-ZAHLEN UM 1 ERHOEHEN
1190 A(3)=A(3)+1:A(4)=A(4)+1:A(5)=A(5)+1:A(6)=A(6)+1:A(9)=A(9)+1
1191 FORT=1TO9:IFA(T)=58THENA(T)=48
1192 NEXTT:GOSUB 100:GOTO 1000
1193 REM  C-ZAHLEN UM 1 ERHOEHEN
1200 A(1)=A(1)+1:A(4)=A(4)+1:A(7)=A(7)+1:A(8)=A(8)+1:A(9)=A(9)+1
1201 FORT=1TO9:IFA(T)=58THENA(T)=48
1202 NEXTT:GOSUB 100:GOTO 1000
1203 REM  V-ZAHLEN UM 1 ERHOEHEN
1210 A(2)=A(2)+1:A(5)=A(5)+1:A(7)=A(7)+1:A(8)=A(8)+1:A(9)=A(9)+1
1211 FORT=1TO9:IFA(T)=58THENA(T)=48
1212 NEXTT:GOSUB 100:GOTO 1000
1213 REM  B-ZAHLEN UM 1 ERHOEHEN
1220 A(3)=A(3)+1:A(6)=A(6)+1:A(7)=A(7)+1:A(8)=A(8)+1:A(9)=A(9)+1
1221 FORT=1TO9:IFA(T)=58THENA(T)=48
1222 NEXTT:GOSUB 100:GOTO 1000:REM           ZAHLEN IN GRAFIK ERNEUERN
1223 REM ******************************
1224 REM ZUFALLSZAHLEN ERZEUGEN
2000 PRINT"[147]EINEN MOMENT BITTE!"
2001 Z=INT(9*RND(1))+1:BB=BB+1
2002 IF BB=B THEN 4000:REM KONTROLLE OB GENUG ZUFALLSZAHLEN ERZEUGT SIND
2003 GOTO 2010
2010 ON Z GOTO 2020,2030,2040,2050,2060,2070,2080,2090,2100
2020 A(1)=A(1)-1:A(2)=A(2)-1:A(3)=A(3)-1:A(4)=A(4)-1:A(7)=A(7)-1
2021 FORT=1TO9:IFA(T)=47THENA(T)=57
2022 NEXTT:GOTO 2001
2023 REM ******************************
2030 A(1)=A(1)-1:A(2)=A(2)-1:A(3)=A(3)-1:A(5)=A(5)-1:A(8)=A(8)-1
2031 FORT=1TO9:IFA(T)=47THENA(T)=57
2032 NEXTT:GOTO 2001
2033 REM ******************************
2040 A(1)=A(1)-1:A(2)=A(2)-1:A(3)=A(3)-1:A(6)=A(6)-1:A(9)=A(9)-1
2041 FORT=1TO9:IFA(T)=47THENA(T)=57
2042 NEXTT:GOTO 2001
2043 REM ******************************
2050 A(1)=A(1)-1:A(4)=A(4)-1:A(5)=A(5)-1:A(6)=A(6)-1:A(7)=A(7)-1
2051 FORT=1TO9:IFA(T)=47THENA(T)=57
2052 NEXTT:GOTO 2001
2053 REM ******************************
2060 A(2)=A(2)-1:A(4)=A(4)-1:A(5)=A(5)-1:A(6)=A(6)-1:A(8)=A(8)-1
2061 FORT=1TO9:IFA(T)=47THENA(T)=57
2062 NEXTT:GOTO 2001
2063 REM ******************************
2070 A(3)=A(3)-1:A(4)=A(4)-1:A(5)=A(5)-1:A(6)=A(6)-1:A(9)=A(9)-1
2071 FORT=1TO9:IFA(T)=47THENA(T)=57
2072 NEXTT:GOTO 2001
2073 REM ******************************
2080 A(1)=A(1)-1:A(4)=A(4)-1:A(7)=A(7)-1:A(8)=A(8)-1:A(9)=A(9)-1
2081 FORT=1TO9:IFA(T)=47THENA(T)=57
2082 NEXTT:GOTO 2001
2083 REM ******************************
2090 A(2)=A(2)-1:A(5)=A(5)-1:A(7)=A(7)-1:A(8)=A(8)-1:A(9)=A(9)-1
2091 FORT=1TO9:IFA(T)=47THENA(T)=57
2092 NEXTT:GOTO 2001
2093 REM ******************************
2100 A(3)=A(3)-1:A(6)=A(6)-1:A(7)=A(7)-1:A(8)=A(8)-1:A(9)=A(9)-1
2101 FORT=1TO9:IFA(T)=47THENA(T)=57
2102 NEXTT:GOTO 2001
2103 REM  SPIEL GEWONNEN : SCHLUSSGRAFIK
3000 PRINT"[147]"
3010 PRINT" GRADULIERE SIE HABEN DAS PROBLEM IN"S:PRINT" SCHRITTEN GELOEST"
3020 IF S<=BB-1 THEN 3040
3030 GOTO 3060
3040 PRINT" DAS IST DIE GERINGSTE ANZAHL VON"
3050 PRINT" SCHRITTEN DIE MOEGLICH WAR!"
3060 PRINT" WOLLEN SIE NOCH EIN SPIEL";
3070 INPUTA$:IFA$="J"THEN GOTO13
3080 PRINT"[147]SCHADE":END
4000 FORT=1TO9:B(T)=A(T):NEXTT
4010 GOSUB 100:GOTO 1000
4100 FORT=1TO9:A(T)=B(T):NEXTT
4110 S=-1:GOSUB 100:GOTO 1000
4500 REM TITELBILD ERZEUGEN
4510 PRINT"[147]";
4520 PRINT"BERND  ARNOLD[157][157][157][157][157][157][157][157][157][157][157][157]PRESENTIERT"
4530 FORT=0TO2400:NEXTT
4540 PRINT"[147]";
4550 PRINT"SUPER MEMORY"
4560 FORT=0TO2400:NEXTT
4570 PRINT"[147]64'ER                            64'ER"
4580 PRINT"";
4590 PRINT"PRODUZIERT[157][157][157][157][157][157][157][157][157][157]20.10.1984"
4600 PRINT"64'ER                            64'ER"
4610 FORT=0TO2400:NEXTT
4620 PRINT"[147]"
4630 PRINT"DIES IST EIN DENKSPIEL FUER JEDES ALTER."
4640 PRINT" SINN DES SPIELES IST ES, ZAHLEN IN      EINEM 3*3 KAESTCHEN ";
4650 PRINT"GROSSEN FELD SO ZU  MANIPULIEREN DASS ZUM SCHLUSS ALLE";
4660 PRINT" DEN  GLEICHEN WERT HABEN."
4670 PRINT" DURCH DRUECKEN SPEZIELLER TASTEN DIE    SPAETER ANGEZEIGT WERDEN,";
4680 PRINT" KOENNEN BE-   STIMMTE ZAHLEN UM EINS ERHOEHT WERDEN."
4690 PRINT" WELCHE ZAHLEN DAS SIND KOENNEN SIE AN   DEN MUSTERN ERKENNEN."
4700 PRINT"WEITER MIT RETURN"
4710 GETA$:IFA$<>CHR$(13)THEN4710
4720 PRINT"[147]"
4730 PRINT" SIE KOENNEN WAEHLEN WELCHE ZAHL ZUM     SCHLUSS EINMAL IM ";
4740 PRINT"KAESTCHEN STEHEN      SOLL."
4750 PRINT" AUSERDEM KOENNEN SIE WAEHLEN WIEVIELE   SCHRITTE SIE MINDESTENS ";
4760 PRINT"DAZU BENOETI-   GEN."
4770 PRINT" PS: WENN IHNEN DAS SPIEL SCHWER ER-     SCHEINEN SOLLTE, ";
4780 PRINT"MACHT NICHTS ES IST    NOCH KEIN MEISTER VOM HIMMEL GEFALLEN!"
4790 PRINT" ZUM SPIELEN BITTE TASTE DRUECKEN"
4800 GETA$:IFA$=""THEN4800
4810 RETURN